QlikView for Developers Cookbook by Unknown

Author:Unknown
Language: eng
Format: epub
Publisher: Packt Publishing

How to do it…

Use the following steps to print QlikView reports to PDF using PDFCreator:

From the Tools menu, select Edit Module….

Enter the following code:Option Explicit Sub PrintReport() ActiveDocument.ClearAll Dim FieldName FieldName = "Country" Dim mySelections set mySelections = _ ActiveDocument.Fields(FieldName).GetPossibleValues Dim i for i = 0 to mySelections.Count - 1 Dim FieldValue FieldValue = mySelections.Item(i).text ActiveDocument.Fields(FieldName).Select FieldValue Print_PDF FieldValue, "My Report", "RP01" Next End Sub Sub Print_PDF(FieldValue, ReportName, ReportID) ' This is mostly reference code from the ' PDF Creator documentation ' Designed for early bind, set reference to PDFCreator Dim pdfjob Dim sPDFName Dim sPDFPath '/// Change the output file name here! /// sPDFName = ReportName & " - " & FieldValue sPDFPath = "C:\Temp" Set pdfjob = CreateObject("PDFCreator.clsPDFCreator") With pdfjob If .cStart("/NoProcessingAtStartup") = False Then If .cStart("/NoProcessingAtStartup", True) = _ False Then Exit Sub End if .cVisible = True End If .cOption("UseAutosave") = 1 .cOption("UseAutosaveDirectory") = 1 .cOption("AutosaveDirectory") = sPDFPath .cOption("AutosaveFilename") = sPDFName .cOption("AutosaveFormat") = 0 ' 0 = PDF .cClearCache End With ' Print the QlikView Report ActiveDocument.PrintReport ReportID, "PDFCreator" ' Wait until the print job has entered the print queue Do Until pdfjob.cCountOfPrintjobs = 1 ActiveDocument.GetApplication.Sleep 20 ' in VBScript use WScript.Sleep(20) Loop pdfjob.cPrinterStop = False ' Wait until PDF creator is finished ' then release the objects Do Until pdfjob.cCountOfPrintjobs = 0 ActiveDocument.GetApplication.Sleep 20 Loop pdfjob.cClose Set pdfjob = Nothing End Sub

Download

Copyright Disclaimer:
This site does not store any files on its server. We only index and link to content provided by other sites. Please contact the content providers to delete copyright contents if any and email us, we'll remove relevant links or contents immediately.